global direction,pillarEat,chase,blasting,causeOfDeath
if chase>2 then
if direction="down" or direction="back" then
put "horta4" into causeOfDeath
visual wipe up slowly to gray
go to card id 3409
exit move
end if
end if
if direction = "down" then
if pillarEat = true then
go to card id 23127
exit move
else
go to card id 22580
exit move
end if
end if
pass move
end move
on closeCard
set the cursor to 4
put "" into field 3
show card button hortaCover
end closeCard
on take
global object,carried
-- remember to update carried if you do not pass take
pass take
end take
on drop
global object,dropRoom,carried,chase,pillarEat,causeOfDeath
if chase=3 then
put last word of object into obj
delete last char of obj
delete first char of obj
if obj<>"nodule" then
put "horta2" into causeOfDeath
visual wipe up slowly to gray
go card id 3409
exit drop
end if
end if
answer "Drop object on pillar, or into the room?" with "pillar" or "room"
if it="room" then
if pillarEat then
put "23127" into dropRoom
if chase=3 then
show card field noduleDrop
put 0 into chase
show card button hortaCover
end if
else
put "22580" into dropRoom
end if
end if
-- remember to update carried if you do not pass drop
pass drop
end drop
on use
global object,carried
-- update carried if use results in loss of object
pass use
end use
on hortaChase
global chase,pillarEat,oldRoom,newRoom
hide card button hortaCover
put "The Horta is disolving away the base of the pillar. The pillar could fall over any second!" into field 3
if chase=2 then show card field hortaBelow
put 3 into chase
if pillarEat = false then
put true into pillarEat
put "22580" into oldRoom
put "23127" into newRoom
send roomChange to background
put cardID into prevID
end if
end hortaChase
-- part 16 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=100 top=229 right=265 bottom=134
-- title width / last selected line: 0
-- icon id / first selected line: 9301 / 9301
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: knife
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a knife" into field 3
put false into examFlag
end mouseUp
-- part 17 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=66 top=228 right=264 bottom=100
-- title width / last selected line: 0
-- icon id / first selected line: 1015 / 1015
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: nodule
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a silicon sphere" into field 3
put false into examFlag
end mouseUp
-- part 18 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=168 top=229 right=265 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 14953 / 14953
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ladder
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a rope ladder" into field 3
put false into examFlag
end mouseUp
-- part 19 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=134 top=229 right=265 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 1019 / 1019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bomb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a time bomb" into field 3
put false into examFlag
end mouseUp
-- part 20 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=32 top=228 right=264 bottom=66
-- title width / last selected line: 0
-- icon id / first selected line: 24317 / 24317
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: key
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a key" into field 3
put false into examFlag
end mouseUp
-- part 21 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=202 top=229 right=265 bottom=236
-- title width / last selected line: 0
-- icon id / first selected line: 7012 / 7012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: gem
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a glowing gem" into field 3
put false into examFlag
end mouseUp
-- part 22 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=0 top=231 right=267 bottom=34
-- title width / last selected line: 0
-- icon id / first selected line: 23078 / 23078
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: orb
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,object,cardID
put the name of the target into object
if takeFlag = true
then send take to card id cardID
else put "a crystal orb" into field 3
put false into examFlag
end mouseUp
-- part 34 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=143 top=50 right=106 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global examFlag,direction,cardID,takeFlag
if examFlag then
put "a tunnel leading west." into field 3
put false into examFlag
else
put false into takeFlag
beep
put "You must get down off the pillar first" into field 3
end if
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=5 top=106 right=168 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
global takeFlag,examFlag,cardID,direction
put false into takeFlag
put false into examFlag
put "down" into direction
send move to card id cardID
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=124 top=170 right=196 bottom=169
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaCover
-- part 43 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: hortaBelow
----- HyperTalk script -----
on mouseUp
hide card field hortaBelow
end MouseUp
-- part 44 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: noduleDrop
----- HyperTalk script -----
on mouseUp
hide card field noduleDrop
put "The Horta is gone." into field 3
end mouseUp
-- part contents for background part 25
----- text -----
Top of Crystal Pillar
(looking west)
-- part contents for card part 43
----- text -----
You easily scramble up the crystal pillar. The creature tries to follow, but the crystal material of the pillar dissolves on contact with its body so it is not able to follow you up. The creature continues to try, however, and the base of the pillar is eroding away! The pillar probably won't last long, so you'd better think of something.
Click to continue.
-- part contents for card part 44
----- text -----
You drop the silicon nodule off of the pillar. The Horta creature instantly forms a pseudopod and deftly catches the nodule. The Horta gently places the nodule back on the spot where you found it. It then emits a low rasping noise in your direction, and shuffles out of the room, the rock floor sizzling and smoking faintly in its wake.
Click to continue...
-- part contents for background part 24
----- text -----
You are perched atop the crystal pillar. The flat top of the pillar is about four feet in diameter.